home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR10 / SPX20.ZIP / SPX_INT.ZIP / SPX_FLI.INT < prev    next >
Text File  |  1993-09-14  |  1KB  |  46 lines
  1. Unit spx_fli;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 2.0  Copyright 1993 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_vga,spx_tim;
  9.  
  10. const
  11.   leavelast   : boolean = false;
  12.   leavefirst  : boolean = false;
  13.  
  14. type
  15.   frameproc = procedure(totframe,frame,loop:longint;var fquit:boolean);
  16.   delayproc = procedure(speed:integer);
  17.   fli_hdr   = record
  18.                  size          : longint;
  19.                  magic,frames,
  20.                  width,height,
  21.                  depth,next    : word;
  22.                  speed,frit    : longint;
  23.                  reserved      : array[1..104] of byte;
  24.                end;
  25.   frame_hdr = record
  26.                 size         : longint;
  27.                 magic,chunks : word;
  28.                 reserved     : array[1..8] of byte;
  29.               end;
  30.  
  31. var
  32.   every_frame   : frameproc;
  33.   userdelay     : delayproc;
  34.   crnthdr       : fli_hdr;
  35.   framesdid,
  36.   crntfrm       : longint;
  37.  
  38. procedure IncPtr(var marker:pointer;incby:longint);
  39. function fli_header(fl:string):boolean;
  40. function read_header(fl:string;var fil:file):boolean;
  41. function memReadHeader(var p:pointer):boolean;
  42. function fli_play(fl:string;sp,tms:integer):boolean;
  43. function memFliPlay(var at;sp,tms:integer):boolean;
  44. procedure memNextframe(var p:pointer);
  45.  
  46.